home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / vlabsequence.clssa < prev   
Text File  |  1995-01-20  |  1KB  |  69 lines
  1. /***********************************************************************
  2.   GADGET: "'Import VLab-Sequenz'" "4" AUTO TYP: "?"
  3.  
  4.   $DAT >>VLabSequence.clssa<< 21.02.1993 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.  
  15.   SetScreenGrabber REQ TRIGGER 5
  16.  
  17.  
  18.   DO FOREVER
  19.     Address VLAB
  20.  
  21.     LOCKGUI ON
  22.     GETPATH SEQUENCE
  23.     Dir=RESULT
  24.  
  25.     Address clariSSA
  26.  
  27.     MSRequester "TITLE '*** Import VLab-Sequenz ***'",
  28.                       "''",
  29.                       "'Bearbeitungsarten:'",
  30.                 "PTEXT 'Sequenz interlaced einlesen'",
  31.                       "'Sequenz deinterlaced einlesen'"
  32.  
  33.     IF RC~=0 THEN LEAVE
  34.     Art=RESULT
  35.  
  36.  
  37.     GetDirectory 'REQ Name' Dir 'TITLE "Wählen Sie das erste Bild" PTEXT Laden FULL CUT FILES'
  38.     Dir=RESULT
  39.     IF RC~=0 THEN LEAVE
  40.  
  41.     PARSE VAR Dir pos Dir
  42.     DO FOREVER
  43.       PARSE VAR Dir 'FILE "' name '"' Dir
  44.       IF name="" THEN LEAVE
  45.  
  46.       Address VLAB
  47.       OPEN name
  48.       IF RC ~= 0 THEN LEAVE
  49.       IF Art=2 THEN   DEINTERLACE
  50.       CONVERT
  51.       DISPLAY
  52.  
  53.       Address clariSSA
  54.       SetScreenGrabber RECORD
  55.       IF RC=0 THEN Stop=0
  56.     END
  57.  
  58.     LEAVE
  59.   END
  60.  
  61.   Address VLAB
  62.   LOCKGUI OFF
  63.  
  64.   Address clariSSA
  65.   SetBasicScreen FRONT
  66.  
  67.   FailAt AltFail
  68. exit
  69.